# x <- c(10.4, 5.6)
# 
# print(x)
# 
# print(1/x)
# 
# c(x,0, 1,x)-> y
# print(y)
# print(length(y))
# 
# v <- 2*x + y + 1
# 
# print(v)

myvec <- c(5,-2.3,4,4,4,6,8)

# length(myvec)

# myvec[length(myvec)]

myvec.len <- length(myvec)

print(myvec.len)

print(myvec[myvec.len-1])
print(myvec[-(myvec.len-1)])

c <- rbind(c(5,3,3), c(2,3,4))
print(c)

print(diag(x=5))

